object frmRetiroMaterial: TfrmRetiroMaterial
  Left = 464
  Top = 230
  Width = 392
  Height = 350
  Caption = 'Retiro de Material'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 384
    Height = 316
    Align = alClient
    BevelOuter = bvNone
    Color = clActiveBorder
    TabOrder = 0
    DesignSize = (
      384
      316)
    object Label11: TLabel
      Left = 228
      Top = 9
      Width = 43
      Height = 13
      Anchors = [akTop, akRight]
      Caption = '* Fecha'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 60
      Height = 13
      Caption = '* Dep'#243'sito'
      FocusControl = DBLookupComboBox1
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpeedButton3: TSpeedButton
      Left = 355
      Top = 40
      Width = 23
      Height = 22
      Anchors = [akTop, akRight]
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
        57705557757777775FF7555555555555000755555555555F777F555555555550
        87075555555555F7577F5555555555088805555555555F755F75555555555033
        805555555555F755F75555555555033B05555555555F755F75555555555033B0
        5555555555F755F75555555555033B05555555555F755F75555555555033B055
        55555555F755F75555555555033B05555555555F755F75555555555033B05555
        555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
        5555F777F7555555555501900555555555557777755555555555099055555555
        5555777755555555555550055555555555555775555555555555}
      NumGlyphs = 2
      OnClick = SpeedButton3Click
    end
    object Label3: TLabel
      Left = 81
      Top = 67
      Width = 47
      Height = 13
      Caption = 'Material'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 67
      Width = 60
      Height = 13
      Caption = '* Cantidad'
      FocusControl = DBEdit2
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 148
      Width = 35
      Height = 13
      Caption = 'Retira'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 8
      Top = 109
      Width = 53
      Height = 13
      Caption = '* Destino'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 80
      Top = 88
      Width = 42
      Height = 13
      AutoSize = True
      DataField = 'material'
      DataSource = sMovDeposito
    end
    object SpeedButton1: TSpeedButton
      Left = 353
      Top = 163
      Width = 23
      Height = 22
      Anchors = [akTop, akRight]
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
        57705557757777775FF7555555555555000755555555555F777F555555555550
        87075555555555F7577F5555555555088805555555555F755F75555555555033
        805555555555F755F75555555555033B05555555555F755F75555555555033B0
        5555555555F755F75555555555033B05555555555F755F75555555555033B055
        55555555F755F75555555555033B05555555555F755F75555555555033B05555
        555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
        5555F777F7555555555501900555555555557777755555555555099055555555
        5555777755555555555550055555555555555775555555555555}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 8
      Top = 190
      Width = 85
      Height = 13
      Caption = 'Observaciones'
      FocusControl = DBMemo1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object edtCreacion: TDBDateEdit
      Left = 284
      Top = 5
      Width = 96
      Height = 19
      DataField = 'FECHA'
      DataSource = sMovDeposito
      DefaultToday = True
      Anchors = [akTop, akRight]
      NumGlyphs = 2
      TabOrder = 0
      StartOfWeek = Sun
      YearDigits = dyTwo
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 8
      Top = 40
      Width = 340
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      BevelInner = bvNone
      BevelOuter = bvNone
      BevelKind = bkFlat
      DataField = 'deposito'
      DataSource = sMovDeposito
      TabOrder = 1
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 289
      Width = 297
      Height = 21
      DataSource = sMovDeposito
      VisibleButtons = [nbInsert, nbPost, nbCancel]
      Anchors = [akLeft, akTop, akRight]
      Flat = True
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 8
      Top = 83
      Width = 65
      Height = 21
      DataField = 'CANTIDAD'
      DataSource = sMovDeposito
      TabOrder = 3
    end
    object btnGrabar: TBitBtn
      Left = 312
      Top = 288
      Width = 68
      Height = 22
      Anchors = [akTop, akRight]
      Caption = 'Grabar'
      Default = True
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnGrabarClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      Spacing = 0
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 8
      Top = 123
      Width = 373
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      DataField = 'obra'
      DataSource = sMovDeposito
      TabOrder = 5
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 8
      Top = 164
      Width = 340
      Height = 21
      DataField = 'apenom'
      DataSource = sMovDeposito
      TabOrder = 6
    end
    object DBMemo1: TDBMemo
      Left = 8
      Top = 205
      Width = 369
      Height = 78
      DataField = 'OBSERVACIONES'
      DataSource = sMovDeposito
      TabOrder = 7
    end
  end
  object cdsDeposito: TSQLClientDataSet
    CommandText = 
      'select distinct MOV_DEPOSITO.ID_DEPOSITO, DIRECCION from '#13#10'MOV_D' +
      'EPOSITO left join DEPOSITO'#13#10'on MOV_DEPOSITO.ID_DEPOSITO = DEPOSI' +
      'TO.ID_DEPOSITO'#13#10'where ID_MATERIAL = :idMat'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'idMat'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 296
    Top = 64
    object cdsDepositoID_DEPOSITO: TSmallintField
      FieldName = 'ID_DEPOSITO'
      Required = True
    end
    object cdsDepositoDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 40
    end
  end
  object cdsObra: TSQLClientDataSet
    CommandText = 
      'select ID_OBRA, DENOMINACION from OBRA, PRESUPUESTO'#13#10'where OBRA.' +
      'ID_OBRA = PRESUPUESTO.ID_PRESUPUESTO'#13#10'order by DENOMINACION'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 328
    Top = 64
    object cdsObraID_OBRA: TFloatField
      FieldName = 'ID_OBRA'
      Required = True
    end
    object cdsObraDENOMINACION: TStringField
      FieldName = 'DENOMINACION'
      Required = True
      Size = 50
    end
  end
  object cdsMovDeposito: TSQLClientDataSet
    CommandText = 'select * from MOV_DEPOSITO where ID_MOVDEPOSITO = :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
        Value = '0'
      end>
    OnNewRecord = cdsMovDepositoNewRecord
    DBConnection = Datos.Con
    Left = 296
    Top = 96
    object cdsMovDepositoID_MOVDEPOSITO: TIntegerField
      FieldName = 'ID_MOVDEPOSITO'
      Required = True
    end
    object cdsMovDepositoFECHA: TSQLTimeStampField
      Alignment = taCenter
      FieldName = 'FECHA'
      Required = True
    end
    object cdsMovDepositoID_MATERIAL: TIntegerField
      FieldName = 'ID_MATERIAL'
      Required = True
    end
    object cdsMovDepositoCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
      Required = True
      OnSetText = cdsMovDepositoCANTIDADSetText
    end
    object cdsMovDepositoID_DEPOSITO: TSmallintField
      FieldName = 'ID_DEPOSITO'
      Required = True
    end
    object cdsMovDepositodeposito: TStringField
      FieldKind = fkLookup
      FieldName = 'deposito'
      LookupDataSet = cdsDeposito
      LookupKeyFields = 'ID_DEPOSITO'
      LookupResultField = 'DIRECCION'
      KeyFields = 'ID_DEPOSITO'
      Size = 40
      Lookup = True
    end
    object cdsMovDepositomaterial: TStringField
      FieldKind = fkLookup
      FieldName = 'material'
      LookupDataSet = cdsMaterial
      LookupKeyFields = 'ID_MATERIAL'
      LookupResultField = 'MATERIAL'
      KeyFields = 'ID_MATERIAL'
      Size = 40
      Lookup = True
    end
    object cdsMovDepositoIDOBRA: TIntegerField
      FieldName = 'IDOBRA'
    end
    object cdsMovDepositoobra: TStringField
      FieldKind = fkLookup
      FieldName = 'obra'
      LookupDataSet = cdsObra
      LookupKeyFields = 'ID_OBRA'
      LookupResultField = 'DENOMINACION'
      KeyFields = 'IDOBRA'
      Size = 50
      Lookup = True
    end
    object cdsMovDepositoID_RETIRA: TSmallintField
      FieldName = 'ID_RETIRA'
    end
    object cdsMovDepositoapenom: TStringField
      FieldKind = fkLookup
      FieldName = 'apenom'
      LookupDataSet = cdsPersona
      LookupKeyFields = 'ID'
      LookupResultField = 'APENOM'
      KeyFields = 'ID_RETIRA'
      Size = 50
      Lookup = True
    end
    object cdsMovDepositoSENTIDO: TIntegerField
      FieldName = 'SENTIDO'
      Required = True
    end
    object cdsMovDepositoOBSERVACIONES: TMemoField
      FieldName = 'OBSERVACIONES'
      BlobType = ftMemo
      Size = 1
    end
  end
  object sMovDeposito: TDataSource
    DataSet = cdsMovDeposito
    OnStateChange = sMovDepositoStateChange
    Left = 328
    Top = 96
  end
  object ds: TSQLDataSet
    SQLConnection = Datos.Con
    Params = <>
    Left = 264
    Top = 96
  end
  object cdsPersona: TSQLClientDataSet
    CommandText = 'select ID, APENOM '#13#10'from PERSONA'#13#10'order by APENOM'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = Datos.Con
    Left = 264
    Top = 64
    object cdsPersonaID: TSmallintField
      FieldName = 'ID'
    end
    object cdsPersonaAPENOM: TStringField
      FieldName = 'APENOM'
      Size = 50
    end
  end
  object cdsMaterial: TSQLClientDataSet
    CommandText = 
      'select ID_MATERIAL, MATERIAL '#13#10'from MATERIAL'#13#10'where ID_MATERIAL ' +
      '= :id'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftFloat
        Name = 'id'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 232
    Top = 64
    object cdsMaterialID_MATERIAL: TFloatField
      FieldName = 'ID_MATERIAL'
      Required = True
    end
    object cdsMaterialMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Required = True
      Size = 50
    end
  end
end
